Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  541 1681 (N26E55 L=101)  1091    164        2 ( 513/1617- 567/1750) -42.3 E63-E50 N21-N31
      2  353 1578 (N16E67 L= 90)  2176    134        4 ( 319/1511- 401/1631) -29.7 E77-E61 N11-N19
      3  460 1540 (N16E52 L=104)  1853    323        5 ( 332/1455- 565/1593)  42.7 E60-E45 N08-N20
      4  574 1509 (N16E41 L=115)   468     49        2 ( 557/1473- 594/1540) -68.2 E43-E39 N13-N18
      5 1690 1454 (N42W41 L=198)   362     35        1 (1669/1435-1712/1474)  38.7 W38-W44 N39-N43
      6 1802 1289 (N33W53 L=210)   420     34        0 (1775/1271-1824/1306)   0.0 W49-W56 N31-N34
      7  261 1228 (S07E58 L= 99)   469     67        1 ( 240/1198- 285/1259)  63.4 E59-E54 S08-S04
      8  483  975 (S17E33 L=124)   258     46        2 ( 465/ 947- 505/1001)  63.4 E34-E31 S19-S15
      9  239  915 (S26E55 L=101)   784    121        2 ( 210/ 865- 270/ 970)  54.5 E59-E51 S29-S22
     10 1344  715 (S13W27 L=183)   212     90        0 (1319/ 672-1368/ 751)  90.0 W25-W27 S15-S10
     11 1029  666 (S23W09 L=166)   211     33        0 (1010/ 646-1054/ 685)   0.0 W07-W10 S24-S22
     12  430  552 (S47E36 L=120)  1294    245        2 ( 350/ 521- 545/ 595)  14.0 E47-E23 S49-S41
     13 1448  541 (S20W41 L=197)   619    107        1 (1423/ 475-1470/ 591) -54.5 W38-W44 S24-S17
     14  929  485 (S37W08 L=165)   271     42        0 ( 904/ 463- 956/ 505)  63.4 W06-W09 S39-S35
     15  893  275 (S55W16 L=173)  1718    216        1 ( 850/ 184- 937/ 368) -59.0 W12-W25 S65-S45
  

    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