Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  771 1743 (N37E33 L=251)   481    101        0 ( 730/1706- 806/1779) -21.8 E38-E28 N33-N39
      2  474 1633 (N25E52 L=233)   536     58        2 ( 438/1614- 509/1660)  -7.1 E55-E47 N23-N26
      3 1245 1601 (N33W05 L=290)   294     90        0 (1216/1559-1268/1642) -50.2 W02-W07 N30-N36
      4  370 1529 (N17E56 L=229)   938    142        4 ( 325/1473- 398/1583) -74.1 E59-E52 N13-N20
      5  174  983 (S18E63 L=221)  2923    333        5 ( 118/ 854- 253/1142)  60.9 E73-E54 S25-S07
      6  537  816 (S25E29 L=255)  1217    342        2 ( 408/ 756- 686/ 890)  26.6 E39-E18 S29-S18
      7  893  857 (S18E06 L=279)   250    157        0 ( 823/ 840- 964/ 874)   7.1 E09-E01 S18-S17
      8  855  809 (S21E07 L=277)   256     94        0 ( 820/ 775- 904/ 844) -26.6 E09-E03 S22-S19
      9 1440  764 (S15W30 L=314)   220     31        0 (1424/ 743-1455/ 790)  63.4 W29-W31 S15-S13
     10  341  704 (S34E48 L=237)   509     54        2 ( 308/ 678- 373/ 726)   0.0 E51-E44 S35-S32
     11 1513  561 (S25W42 L=326)  1161    313        0 (1385/ 483-1607/ 668)  60.6 W35-W46 S32-S16
     12 1652  438 (S29W63 L=348)   411     76        1 (1622/ 420-1692/ 457)  38.7 W61-W66 S30-S26
     13  742  282 (S61E12 L=272)  1089    173        2 ( 662/ 250- 802/ 308)   6.0 E23-E04 S63-S58
  

    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