Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  556 1545 (N41E36 L= 65)   517     63        4 ( 532/1516- 584/1577) -39.8 E39-E32 N38-N43
      2 1057 1559 (N39W07 L=108)   510    128        1 ( 993/1537-1119/1577) -11.3 W01-W11 N37-N40
      3 1252 1467 (N31W20 L=121)   363    110        1 (1208/1422-1290/1507) -56.3 W17-W21 N27-N34
      4  537 1298 (N24E32 L= 69)   613    129        0 ( 514/1234- 561/1355) -69.4 E34-E30 N19-N27
      5 1830 1260 (N12W64 L=165)   459     63        0 (1810/1225-1846/1291) -76.0 W62-W66 N09-N13
      6  312 1223 (N20E51 L= 50)   340    101        0 ( 296/1176- 335/1268)  71.6 E52-E49 N16-N22
      7 1755 1130 (N05W52 L=153)   391     51        0 (1733/1104-1780/1150) -14.0 W50-W54 N03-N06
      8 1856  995 (S05W62 L=163)   938    166        2 (1805/ 937-1888/1041) -45.0 W56-W66 S08-S01
      9  210  883 (S01E62 L= 39)  1285    193        1 ( 190/ 800- 239/ 964)  60.9 E64-E57 S06-N03
     10 1808  881 (S11W56 L=157)   896    147        3 (1742/ 853-1863/ 934)   0.0 W49-W63 S12-S07
     11 1792  800 (S16W55 L=156)  2490    244        6 (1717/ 732-1882/ 853)  18.4 W47-W68 S19-S12
     12 1415  796 (S12W24 L=125)   404    144        1 (1364/ 740-1456/ 846)  45.0 W20-W26 S15-S09
     13  778  777 (S09E17 L= 84)   322     95        2 ( 744/ 744- 812/ 808)  36.9 E18-E14 S11-S07
     14  931  770 (S10E07 L= 94)   232     75        2 ( 902/ 748- 973/ 794)  21.8 E09-E04 S11-S09
     15 1801  679 (S24W60 L=161)  1795    239        3 (1761/ 604-1848/ 756)  68.2 W55-W66 S29-S19
     16  424  655 (S16E45 L= 56)   405    107        0 ( 392/ 613- 444/ 694) -78.7 E46-E43 S18-S13
     17  918  473 (S30E11 L= 90)  1578    346        2 ( 797/ 385-1021/ 603)  36.9 E22-E02 S36-S21
     18 1161  525 (S28W06 L=107)   369    108        2 (1142/ 468-1176/ 572)  82.9 W04-W07 S32-S24
     19  450  494 (S27E48 L= 53)   559    125        1 ( 397/ 478- 512/ 511)   4.4 E54-E41 S28-S25
     20  741  423 (S33E26 L= 75)   326     63        1 ( 708/ 409- 781/ 437)  -9.5 E28-E22 S34-S32
  

    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