Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  453 1447 (N30E37 L=193)  1198    234        3 ( 363/1405- 543/1497) -17.4 E45-E29 N26-N34
      2 1388 1461 (N22W28 L=258)   262    124        0 (1328/1448-1447/1474)   0.0 W23-W32 N21-N22
      3 1049 1347 (N18W04 L=235)   313     78        2 ( 999/1327-1095/1366)  -9.5 W01-W07 N16-N19
      4  302 1303 (N22E48 L=182)   519    144        0 ( 259/1266- 345/1340) -29.1 E52-E43 N19-N25
      5  281 1192 (N16E49 L=181)   286     52        1 ( 265/1156- 295/1222)  76.0 E50-E48 N13-N17
      6 1267 1143 (N04W15 L=246)   361    104        0 (1251/1093-1283/1201) -90.0 W14-W16 N00-N07
      7 1584 1086 (S02W36 L=266)   747    153        2 (1531/1033-1653/1137) -32.0 W32-W40 S05-N00
      8  320 1081 (N08E46 L=184)   763    138        3 ( 278/1022- 348/1117) -50.2 E49-E43 N04-N11
      9  996  940 (S06E02 L=228)   232     85        0 ( 954/ 913-1046/ 962) -45.0 E04-W00 S08-S04
     10  199  922 (N00E60 L=170)   418    112        2 ( 170/ 895- 225/ 952)   8.1 E63-E56 N00-N01
     11 1408  890 (S12W22 L=253)   434     83        1 (1372/ 847-1429/ 925) -59.0 W20-W23 S15-S10
     12  206  737 (S11E63 L=167)  4884    592        5 ( 114/ 592- 302/ 873) -71.6 E76-E55 S19-S01
     13  492  816 (S09E36 L=194)   232     54        1 ( 475/ 788- 510/ 848)  53.1 E37-E34 S10-S06
     14 1389  727 (S22W21 L=251)   716    214        0 (1311/ 635-1467/ 830)  47.7 W15-W26 S27-S16
     15 1195  801 (S16W08 L=239)   217     35        0 (1173/ 784-1221/ 820) -18.4 W07-W10 S17-S14
     16 1281  731 (S21W14 L=244)   493    153        0 (1210/ 685-1333/ 796)  32.0 W08-W17 S23-S17
     17  497  538 (S26E42 L=188)   938    148        4 ( 441/ 491- 559/ 578) -12.5 E46-E36 S28-S22
     18 1466  414 (S45W30 L=260)   658     86        2 (1437/ 385-1498/ 450) -59.0 W27-W33 S47-S42
     19 1361  372 (S47W21 L=251)  1068    169        3 (1274/ 345-1431/ 399)   4.1 W13-W28 S49-S45
  

    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