Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1751 1428 (N42W40 L= 77)   438     80        0 (1726/1408-1773/1453)  45.0 W36-W42 N39-N44
      2 1361 1347 (N21W10 L= 47)   328    121        0 (1314/1292-1406/1399) -29.7 W06-W14 N19-N23
      3 1177 1330 (N15E00 L= 37)   233     53        1 (1146/1311-1205/1354)  71.6 E01-W01 N13-N16
      4 1758 1088 (N19W44 L= 81)  1143    204        0 (1733/ 991-1782/1193) -54.0 W40-W48 N14-N25
      5  919 1135 (S03E09 L= 28)   251    103        0 ( 894/1081- 933/1182) -71.6 E10-E07 S06-N00
      6  201 1118 (S21E59 L=338)   392     73        1 ( 185/1081- 217/1152)  76.0 E60-E57 S22-S18
      7 1030 1086 (S03E01 L= 36)   188     65        1 (1011/1053-1044/1123) -45.0 E03-W00 S04-S01
      8 1882  922 (N15W61 L= 98)  1495    181        2 (1856/ 852-1906/1013) -52.1 W55-W65 N10-N19
      9 1218  959 (S05W12 L= 49)   460     75        2 (1172/ 928-1253/ 994)  36.9 W10-W14 S06-S02
     10  544  815 (S31E24 L= 13)  1393    450        3 ( 361/ 760- 726/ 884)   8.1 E39-E11 S33-S26
     11 1376  763 (S10W27 L= 64)   513    110        1 (1338/ 704-1425/ 821)  90.0 W26-W29 S14-S05
     12 1256  606 (S22W27 L= 64)   505     72        2 (1207/ 575-1298/ 638)  63.4 W24-W28 S25-S19
     13 1608  335 (S24W67 L=104)   907    101        0 (1564/ 309-1649/ 363)  45.0 W64-W70 S26-S21
  

    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