Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1471 1633 (N45W38 L=264)   711    141        2 (1406/1610-1539/1662)   3.8 W30-W45 N42-N46
      2 1589 1620 (N44W51 L=277)   388     40        0 (1570/1595-1616/1636)  20.6 W47-W55 N41-N44
      3 1684 1603 (N42W63 L=290)  1218    102        2 (1642/1574-1742/1620)   4.4 W54-W80 N40-N43
      4  737 1573 (N37E25 L=202)   578    121        1 ( 691/1538- 790/1613) -21.8 E29-E19 N34-N39
      5 1771 1149 (N12W53 L=280)  3004    384        5 (1680/ 987-1839/1311) -70.7 W46-W60 N02-N22
      6 1056 1193 (N13W01 L=228)   597    294        0 ( 957/1092-1132/1286) -45.0 E05-W06 N07-N18
      7  899 1205 (N13E09 L=218)   272     63        1 ( 875/1169- 917/1235)  90.0 E10-E07 N11-N15
      8 1284 1103 (N08W16 L=243)   310    108        0 (1264/1061-1323/1154) -71.6 W14-W18 N05-N11
      9 1117  975 (N00W06 L=233)   619    190        2 (1084/ 888-1157/1058)  84.3 W03-W08 S05-N05
     10 1396  833 (S08W24 L=251)   818    216        0 (1362/ 730-1438/ 912)  85.2 W22-W26 S14-S02
     11 1877  728 (S14W73 L=299)  1366     94        2 (1857/ 677-1895/ 771) -45.0 W68-W78 S17-S11
     12 1772  724 (S14W57 L=284)   494     75        2 (1754/ 688-1791/ 757) -76.0 W54-W59 S16-S12
     13 1287  573 (S25W20 L=246)  1033    275        3 (1216/ 471-1379/ 675)  63.4 W15-W24 S32-S17
     14 1068  242 (S53W09 L=236)   326     19        0 (1047/ 225-1086/ 264)  76.0 W07-W11 S54-S50
     15  919  226 (S56E06 L=220)  1574    173        3 ( 841/ 201- 993/ 260)   0.0 E14-W01 S58-S51
  

    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