Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  800 1614 (N23E32 L=191)   976    233        2 ( 771/1522- 852/1712) -35.5 E39-E24 N17-N28
      2  741 1598 (N20E35 L=188)   269    113        0 ( 716/1554- 764/1625) -68.2 E36-E33 N16-N21
      3  585 1554 (N13E43 L=180)   448    103        1 ( 550/1510- 609/1599) -71.6 E45-E41 N10-N16
      4 1359 1503 (N33W06 L=230)   589    166        0 (1313/1436-1382/1582) -45.0 W00-W09 N28-N36
      5 1178 1429 (N22E03 L=221)   646    151        2 (1133/1359-1199/1510) -73.3 E04-W00 N17-N27
      6  284 1390 (S03E62 L=162)  2323    270        2 ( 218/1281- 345/1498)  72.9 E65-E56 S09-N04
      7 1586 1440 (N37W25 L=249)   370     42        0 (1571/1404-1602/1470) -63.4 W23-W26 N34-N39
      8 1093 1422 (N19E07 L=216)   235     62        1 (1071/1397-1118/1438) -14.0 E09-E05 N17-N20
      9 1729 1344 (N36W40 L=264)   383    113        0 (1700/1293-1746/1388) -45.0 W36-W41 N32-N37
     10 1114 1340 (N15E04 L=220)   246     80        0 (1078/1314-1152/1363) -11.3 E06-E01 N14-N15
     11  724 1216 (S03E22 L=201)   242     37        1 ( 708/1190- 745/1241)  76.0 E23-E21 S04-N00
     12 1639 1186 (N22W33 L=257)   335     67        0 (1612/1149-1657/1214) -21.8 W30-W35 N20-N23
     13  659 1078 (S12E22 L=201)   246     50        0 ( 627/1059- 679/1105)  56.3 E24-E20 S13-S10
     14 1875 1025 (N21W60 L=284)   801     99        2 (1853/ 970-1891/1073) -45.0 W56-W63 N18-N24
     15  879 1007 (S10E08 L=216)   289     98        1 ( 837/ 982- 905/1050)  68.2 E09-E05 S12-S07
     16  268 1001 (S26E52 L=172)   517     85        0 ( 232/ 963- 303/1036)  40.6 E55-E48 S28-S22
     17  770  981 (S14E13 L=210)   324    114        1 ( 744/ 931- 800/1013) -36.9 E14-E10 S16-S12
     18  926  957 (S12E04 L=220)   416    104        2 ( 899/ 904- 964/1003) -71.6 E04-E01 S14-S08
     19 1014  936 (S10W02 L=225)   545    142        2 ( 972/ 903-1066/ 974)  56.3 E01-W04 S13-S07
     20  605  794 (S30E20 L=204)  1059    259        2 ( 500/ 764- 726/ 838)  16.4 E28-E11 S31-S25
     21 1056  536 (S32W18 L=241)   280    113        1 (1004/ 522-1111/ 554)  33.7 W14-W20 S33-S29
     22  509  497 (S53E24 L=200)   638    143        1 ( 457/ 452- 553/ 549) -24.4 E30-E18 S55-S49
     23 1399  290 (S34W59 L=282)   496     20        0 (1376/ 272-1423/ 309)  90.0 W55-W61 S35-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