Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  674 1427 (N40E13 L=232)   881    186        3 ( 599/1388- 753/1463) -22.6 E19-E07 N35-N42
      2  552 1419 (N42E24 L=222)   258     58        1 ( 527/1391- 571/1441) -45.0 E26-E22 N40-N44
      3 1204 1419 (N25W22 L=268)   752    165        1 (1116/1399-1278/1438) -26.6 W16-W26 N22-N27
      4 1087 1324 (N23W12 L=258)   303     96        1 (1057/1283-1120/1367) -80.5 W10-W12 N19-N25
      5 1350 1330 (N16W28 L=273)   227     31        0 (1329/1314-1374/1349) -56.3 W26-W29 N14-N17
      6  993 1228 (N20W03 L=249)   195     99        0 ( 946/1209-1040/1257)   0.0 W00-W06 N18-N20
      7 1865 1197 (S07W65 L=311)   456     30        0 (1851/1167-1879/1220)  71.6 W62-W67 S08-S05
      8  733 1159 (N22E14 L=232)   650    198        0 ( 644/1105- 811/1204) -45.0 E19-E10 N16-N25
      9  304 1015 (N21E50 L=196)   587    100        0 ( 258/ 978- 341/1052) -40.6 E54-E46 N18-N24
     10 1896  928 (S24W63 L=309)  1653    186        0 (1849/ 864-1932/1019)  24.8 W55-W71 S27-S19
     11 1478  958 (S08W25 L=271)   216     65        0 (1447/ 941-1513/ 972) -26.6 W23-W27 S09-S06
     12 1421  686 (S23W16 L=262)   456    191        0 (1348/ 631-1475/ 755)  24.4 W09-W20 S24-S19
     13 1827  672 (S39W56 L=302)  1652    142        3 (1784/ 608-1865/ 726)  82.9 W49-W63 S43-S34
     14  529  664 (S03E39 L=207)   435    103        1 ( 490/ 619- 561/ 696)  33.7 E43-E37 S05-S01
     15 1673  515 (S45W37 L=283)  1918    235        3 (1603/ 451-1742/ 609)  33.7 W28-W44 S49-S37
     16  529  503 (S13E46 L=200)   624    122        1 ( 492/ 450- 572/ 549) -82.9 E47-E44 S17-S09
     17 1431  340 (S50W10 L=256)   961    149        2 (1368/ 298-1492/ 383)   8.1 W03-W17 S52-S46
     18 1084  283 (S42E19 L=226)   621     66        1 (1050/ 262-1117/ 307)   9.5 E22-E16 S44-S39
     19  611  278 (S30E56 L=190)   669     67        0 ( 567/ 266- 645/ 295)   0.0 E61-E51 S31-S29
     20 1265  252 (S52E08 L=238)   509     59        1 (1236/ 226-1295/ 273)   8.1 E11-E04 S54-S49
  

    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