Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  930 1767 (N37E32 L= 16)  2673    534        4 ( 888/1637- 996/1921) -34.6 E50-E21 N28-N50
      2  406 1574 (N11E59 L=349)  1839    506        1 ( 366/1416- 436/1705) -39.0 E70-E48 N01-N19
      3 1632 1501 (N43W29 L= 77)   319     54        0 (1617/1471-1653/1521)  90.0 W27-W30 N40-N44
      4 1373 1406 (N27W10 L= 58)   533    188        1 (1294/1328-1401/1455) -26.6 W04-W12 N21-N29
      5 1783 1389 (N41W45 L= 93)   853    176        1 (1754/1356-1831/1414)  33.7 W41-W50 N37-N43
      6 1862 1295 (N38W54 L=102)  1663    161        1 (1833/1222-1890/1365) -53.1 W50-W56 N32-N42
      7  814 1316 (N05E20 L= 29)   281     33        1 ( 791/1292- 838/1339)  56.3 E20-E18 N04-N07
      8  445 1207 (S09E40 L=  8)   269     59        2 ( 420/1172- 472/1240)  76.0 E41-E38 S11-S07
      9 1206 1203 (N09W05 L= 53)   221     74        1 (1166/1168-1236/1224) -11.3 W02-W07 N08-N10
     10 1169 1124 (N04W05 L= 53)   194     16        0 (1151/1103-1185/1146)  90.0 W04-W06 N02-N05
     11 1073 1133 (N02E00 L= 48)   240    104        0 (1023/1122-1134/1144)  31.0 E02-W03 N00-N03
     12 1694 1023 (N14W41 L= 89)   809    205        0 (1659/ 947-1747/1070)  76.0 W38-W45 N09-N17
     13 1604 1019 (N11W34 L= 82)   605    128        1 (1565/ 961-1639/1068) -51.3 W30-W37 N07-N13
     14  873  922 (S15E06 L= 42)   203     64        0 ( 855/ 886- 891/ 957)  90.0 E06-E05 S17-S12
     15 1846  879 (N12W60 L=108)   809    126        1 (1822/ 809-1871/ 935) -76.0 W57-W61 N07-N15
     16 1723  871 (N07W48 L= 96)   931    204        3 (1670/ 812-1766/ 929)  69.4 W44-W52 N02-N10
     17  412  885 (S29E36 L= 13)   631    180        0 ( 337/ 843- 474/ 922)  38.7 E41-E31 S33-S25
     18  709  834 (S24E13 L= 35)   583    201        0 ( 618/ 805- 807/ 882)  39.3 E19-E08 S27-S18
     19  894  685 (S28W02 L= 50)   487     76        4 ( 853/ 653- 930/ 716)  53.1 W00-W04 S29-S25
     20  673  611 (S39E11 L= 38)   413     67        1 ( 640/ 594- 720/ 641)   8.1 E13-E06 S40-S37
     21 1207  283 (S42W42 L= 90)   391     80        1 (1173/ 259-1239/ 305)   0.0 W38-W45 S43-S41
  

    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