Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  629 1624 (N46E32 L=306)   310     74        0 ( 594/1603- 670/1640)  18.4 E35-E28 N44-N46
      2 1329 1618 (N42W29 L=  6)   709    191        2 (1235/1586-1407/1639) -12.1 W20-W34 N38-N43
      3 1701 1552 (N33W59 L= 37)   628    138        0 (1650/1522-1746/1578) -26.6 W54-W63 N30-N35
      4  553 1506 (N37E35 L=302)  1557    361        7 ( 447/1415- 652/1556) -21.8 E45-E25 N30-N40
      5 1642 1440 (N26W49 L= 26)   318     46        0 (1617/1425-1669/1455) -26.6 W46-W50 N25-N27
      6  984 1370 (N26E01 L=336)   776    307        0 ( 816/1320-1102/1418) -18.4 E12-W06 N22-N29
      7 1236 1238 (N17W15 L=352)   693    193        4 (1166/1170-1286/1308) -56.3 W10-W17 N12-N21
      8 1814 1272 (N14W61 L= 39)   621    131        0 (1772/1243-1849/1296) -24.0 W56-W65 N11-N15
      9  513 1191 (N16E34 L=304)   361    172        0 ( 488/1107- 541/1264) -73.3 E36-E31 N10-N20
     10 1646  877 (S08W41 L= 19)   777    197        0 (1588/ 822-1715/ 944) -36.0 W36-W47 S12-S03
     11  293  913 (S01E52 L=285)   460     96        1 ( 254/ 890- 326/ 941)   8.1 E56-E48 S02-N00
     12 1239  792 (S11W12 L=350)   246     64        0 (1220/ 754-1261/ 831)  78.7 W11-W13 S13-S08
     13 1351  547 (S28W21 L=358)  1928    416        4 (1165/ 433-1513/ 695)  32.0 W07-W31 S35-S18
     14 1065  620 (S21W01 L=338)   508    148        1 ( 993/ 577-1127/ 672)  29.1 E04-W05 S23-S18
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y