Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1057 1746 (N42E07 L=109)   361     29        0 (1035/1727-1081/1769) -11.3 E09-E04 N40-N44
      2  811 1660 (N33E23 L= 94)   396     53        0 ( 788/1635- 844/1688)   0.0 E24-E20 N30-N34
      3 1228 1560 (N30W08 L=124)   767    202        1 (1170/1483-1291/1642) -48.0 W03-W12 N25-N35
      4 1021 1436 (N19E05 L=112)   423    143        0 (1000/1374-1047/1508) -63.4 E06-E02 N15-N23
      5 1465 1462 (N27W25 L=141)   331     73        0 (1427/1443-1505/1484)  -9.5 W21-W27 N25-N27
      6  884 1368 (N14E12 L=104)   533    193        1 ( 826/1296- 950/1439)  63.4 E14-E08 N08-N18
      7 1715 1109 (N08W44 L=161)  2633    514        5 (1630/ 884-1768/1268) -84.6 W37-W49 S04-N17
      8 1583 1219 (N13W33 L=150)   425    119        1 (1539/1183-1633/1251) -15.9 W30-W37 N10-N14
      9 1833 1169 (N14W56 L=172)  1783    176        4 (1795/1095-1869/1248)  84.3 W51-W59 N08-N18
     10  172 1031 (S11E63 L= 54)  1130    120        2 ( 132/ 993- 211/1085) -35.5 E68-E57 S12-S07
     11  227  883 (S20E57 L= 60)  4577    583        5 ( 115/ 766- 324/1067)  46.6 E72-E46 S26-S08
     12 1211 1030 (S03W11 L=127)   531    183        0 (1125/ 971-1267/1061) -12.5 W05-W14 S06-S01
     13  497  878 (S19E33 L= 84)  1115    327        0 ( 427/ 815- 570/ 963) -53.1 E38-E27 S22-S13
     14  878  929 (S13E08 L=109)   200    104        0 ( 826/ 909- 922/ 945)  11.3 E10-E05 S13-S11
     15 1841  759 (S10W63 L=180)  6626    218       14 (1765/ 602-1930/ 894) -86.8 W55-W75 S19-S01
     16 1489  869 (S09W31 L=147)   219     74        0 (1446/ 853-1523/ 889)  31.0 W27-W32 S10-S07
     17 1166  852 (S14W10 L=127)   176     43        0 (1142/ 834-1196/ 873) -14.0 W08-W12 S14-S13
     18 1465  659 (S22W34 L=150)   838    192        0 (1434/ 593-1523/ 752) -42.0 W29-W39 S25-S16
     19 1699  668 (S18W52 L=169)  2284    443        8 (1527/ 554-1818/ 751)  28.6 W39-W62 S23-S10
     20 1185  697 (S23W14 L=130)   185     71        1 (1155/ 675-1222/ 720)  26.6 W11-W15 S24-S21
     21  430  558 (S40E43 L= 73)  1729    204        4 ( 336/ 528- 541/ 594)   9.5 E55-E31 S41-S36
  

    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