Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  761 1783 (N44E42 L=210)   697    104        1 ( 733/1751- 788/1826) -28.6 E48-E37 N40-N47
      2 1356 1780 (N59W14 L=266)   440     74        0 (1311/1764-1387/1792)   6.3 W08-W18 N57-N61
      3 1678 1504 (N42W45 L=297)   751    122        2 (1620/1467-1735/1532)  -4.1 W38-W52 N39-N43
      4  906 1287 (N13E12 L=240)   807    263        5 ( 824/1239- 982/1322)  29.1 E16-E06 N09-N16
      5  646 1240 (N06E27 L=225)   345    117        0 ( 635/1180- 656/1300) -74.1 E28-E25 N02-N09
      6 1008 1254 (N12E05 L=247)   191     55        0 ( 971/1236-1033/1268)   0.0 E07-E03 N11-N13
      7  831 1230 (N08E15 L=237)   246     58        0 ( 809/1202- 854/1257) -45.0 E16-E13 N06-N09
      8  893 1203 (N08E11 L=241)   315     42        2 ( 865/1175- 917/1234) -56.3 E12-E09 N05-N09
      9 1129 1122 (N07W05 L=257)   224     87        0 (1090/1100-1162/1138)  36.9 W02-W06 N04-N07
     10  878  864 (S13E06 L=246)  1094    383        1 ( 816/ 725- 980/1039)  77.2 E08-E02 S22-N00
     11 1032  809 (S13W04 L=256)   204     55        1 (1009/ 788-1057/ 825) -18.4 W02-W05 S14-S12
     12 1339  704 (S14W25 L=277)   440    126        0 (1277/ 667-1393/ 737) -12.5 W20-W29 S15-S13
     13 1109  649 (S22W12 L=264)   310     91        0 (1066/ 629-1161/ 667)  38.7 W09-W15 S23-S19
     14 1155  483 (S32W20 L=272)   298     96        0 (1116/ 468-1204/ 498)  31.0 W16-W22 S33-S29
     15  449  392 (S55E45 L=207)  1906    221        1 ( 378/ 332- 528/ 455) -25.0 E55-E34 S59-S49
  

    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