Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  597 1687 (N62E13 L= 25)   912    156        1 ( 547/1643- 671/1724)   3.2 E20-E02 N58-N63
      2 1477 1676 (N28W56 L= 94)   357     62        0 (1436/1658-1509/1691) -38.7 W53-W58 N26-N30
      3  909 1578 (N42W11 L= 49)   809    237        1 ( 843/1511-1011/1646) -70.3 W08-W14 N34-N48
      4 1316 1541 (N26W35 L= 73)   982    347        1 (1168/1487-1479/1563) -39.1 W25-W42 N18-N31
      5  973 1372 (N27W07 L= 45)   520    140        2 ( 909/1348-1033/1404) -39.8 W03-W10 N24-N30
      6 1145 1320 (N19W15 L= 53)   548    213        4 (1076/1242-1209/1377) -73.3 W12-W18 N13-N23
      7 1038 1296 (N21W08 L= 46)   330    150        0 ( 969/1263-1072/1323) -15.9 W03-W10 N18-N22
      8  859 1189 (N20E05 L= 33)   423    189        0 ( 778/1163- 954/1214) -41.6 E09-W00 N15-N23
      9 1821 1041 (S17W53 L= 91)  1428    214        5 (1794/ 940-1848/1129)  74.7 W49-W57 S22-S11
     10 1898  951 (S25W62 L=100)   989    149        2 (1848/ 912-1938/1023)   7.6 W54-W70 S27-S22
     11 1293  629 (S24W05 L= 43)   327     57        0 (1273/ 598-1316/ 654)  45.0 W03-W06 S25-S22
     12 1158  487 (S29E08 L= 30)   836    250        0 (1054/ 424-1208/ 568)  19.7 E16-E02 S31-S24
     13 1125  295 (S42E18 L= 20)  1587    316        1 (1013/ 211-1257/ 402)  14.0 E32-E04 S45-S37
  

    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