Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1489 (N39E02 L=127)   531    164        0 ( 811/1430- 869/1560) -90.0 E03-W00 N34-N43
      2 1059 1538 (N37W16 L=145)   282     79        0 (1032/1511-1099/1556)   0.0 W13-W18 N35-N37
      3 1528 1382 (N16W41 L=170)   279     96        0 (1493/1340-1550/1414) -80.5 W39-W42 N12-N18
      4  841 1223 (N22E07 L=122)   963    347        1 ( 777/1095- 938/1355) -78.1 E09-E03 N12-N31
      5  699  933 (N08E21 L=108)   203     77        1 ( 662/ 914- 727/ 955) -26.6 E23-E19 N06-N09
      6 1067  914 (S00W00 L=129)   183     60        2 (1049/ 886-1088/ 947) -90.0 W00-W01 S01-N02
      7  161  904 (N14E68 L= 61)   848    146        4 ( 123/ 858- 184/ 945)  71.6 E75-E64 N10-N16
      8  942  846 (S01E08 L=121)   221     81        1 ( 897/ 827- 979/ 866)   0.0 E11-E05 S02-N00
      9 1651  750 (S24W35 L=164)  1383    290        1 (1571/ 622-1716/ 860)  38.2 W27-W41 S30-S18
     10  510  722 (S01E38 L= 91)   290     95        1 ( 499/ 675- 525/ 771)  53.1 E39-E36 S03-N01
     11 1174  679 (S16W02 L=131)   603     96        4 (1140/ 633-1216/ 740)  82.9 W00-W04 S19-S11
     12  858  569 (S16E20 L=109)   239    144        0 ( 839/ 512- 891/ 616)  81.9 E21-E17 S20-S13
     13  928  520 (S21E17 L=112)   431     91        3 ( 900/ 489- 951/ 568)  80.5 E19-E15 S23-S17
     14 1062  513 (S24E09 L=120)   260    106        0 (1023/ 472-1091/ 552)  33.7 E12-E06 S26-S22
     15  729  519 (S17E30 L= 99)   240     77        1 ( 693/ 502- 767/ 541) -26.6 E31-E27 S18-S15
     16  392  428 (S18E62 L= 67)   616     61        1 ( 357/ 406- 421/ 452)   9.5 E69-E57 S19-S16
     17 1094  357 (S37E12 L=117)   931    148        2 (1026/ 319-1168/ 392)  -4.8 E17-E05 S38-S34
     18 1591  362 (S54W34 L=163)   688     67        2 (1567/ 342-1624/ 388) -28.6 W29-W40 S56-S49
     19  994  316 (S37E21 L=108)   514     65        1 ( 964/ 286-1024/ 353) -68.2 E22-E18 S40-S33
     20  816  252 (S38E38 L= 91)  2698    328        5 ( 677/ 172- 938/ 320)  11.0 E62-E25 S43-S33
  

    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